home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / mainlarg.frm < prev    next >
Text File  |  1999-10-09  |  58KB  |  1,740 lines
  1. VERSION 5.00
  2. Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
  3. Begin VB.Form MainLarge 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Quad-Ball By Arvinder Sehmi 1999, Arvinder@Sehmi.Co.Uk"
  6.    ClientHeight    =   8985
  7.    ClientLeft      =   150
  8.    ClientTop       =   405
  9.    ClientWidth     =   12000
  10.    BeginProperty Font 
  11.       Name            =   "Times New Roman"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "MainLarge.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    Moveable        =   0   'False
  24.    ScaleHeight     =   8985
  25.    ScaleWidth      =   12000
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin VB.PictureBox StatBox 
  29.       Appearance      =   0  'Flat
  30.       AutoSize        =   -1  'True
  31.       BackColor       =   &H00C000C0&
  32.       BorderStyle     =   0  'None
  33.       ForeColor       =   &H80000008&
  34.       Height          =   1350
  35.       Left            =   0
  36.       ScaleHeight     =   1350
  37.       ScaleWidth      =   1095
  38.       TabIndex        =   0
  39.       Top             =   0
  40.       Visible         =   0   'False
  41.       Width           =   1095
  42.       Begin VB.Label Label5 
  43.          BackStyle       =   0  'Transparent
  44.          Caption         =   "Total Score"
  45.          BeginProperty Font 
  46.             Name            =   "Times New Roman"
  47.             Size            =   27.75
  48.             Charset         =   0
  49.             Weight          =   400
  50.             Underline       =   0   'False
  51.             Italic          =   0   'False
  52.             Strikethrough   =   0   'False
  53.          EndProperty
  54.          ForeColor       =   &H0000FF00&
  55.          Height          =   510
  56.          Left            =   900
  57.          TabIndex        =   12
  58.          Top             =   1890
  59.          Width           =   3660
  60.       End
  61.       Begin VB.Label Label6 
  62.          BackStyle       =   0  'Transparent
  63.          Caption         =   "Planet Satatus"
  64.          BeginProperty Font 
  65.             Name            =   "Times New Roman"
  66.             Size            =   27.75
  67.             Charset         =   0
  68.             Weight          =   400
  69.             Underline       =   0   'False
  70.             Italic          =   0   'False
  71.             Strikethrough   =   0   'False
  72.          EndProperty
  73.          ForeColor       =   &H0000FF00&
  74.          Height          =   555
  75.          Left            =   900
  76.          TabIndex        =   11
  77.          Top             =   3015
  78.          Width           =   4110
  79.       End
  80.       Begin VB.Label Label7 
  81.          BackStyle       =   0  'Transparent
  82.          Caption         =   "Top Speed"
  83.          BeginProperty Font 
  84.             Name            =   "Times New Roman"
  85.             Size            =   27.75
  86.             Charset         =   0
  87.             Weight          =   400
  88.             Underline       =   0   'False
  89.             Italic          =   0   'False
  90.             Strikethrough   =   0   'False
  91.          EndProperty
  92.          ForeColor       =   &H0000FF00&
  93.          Height          =   555
  94.          Left            =   900
  95.          TabIndex        =   10
  96.          Top             =   5670
  97.          Width           =   3885
  98.       End
  99.       Begin VB.Label Label8 
  100.          BackStyle       =   0  'Transparent
  101.          Caption         =   "Total Number Of Bounces"
  102.          BeginProperty Font 
  103.             Name            =   "Times New Roman"
  104.             Size            =   27.75
  105.             Charset         =   0
  106.             Weight          =   400
  107.             Underline       =   0   'False
  108.             Italic          =   0   'False
  109.             Strikethrough   =   0   'False
  110.          EndProperty
  111.          ForeColor       =   &H0000FF00&
  112.          Height          =   645
  113.          Left            =   900
  114.          TabIndex        =   9
  115.          Top             =   6750
  116.          Width           =   6180
  117.       End
  118.       Begin VB.Label TotalScore 
  119.          AutoSize        =   -1  'True
  120.          BackStyle       =   0  'Transparent
  121.          Caption         =   "SCORE"
  122.          BeginProperty Font 
  123.             Name            =   "Times New Roman"
  124.             Size            =   36
  125.             Charset         =   0
  126.             Weight          =   700
  127.             Underline       =   0   'False
  128.             Italic          =   0   'False
  129.             Strikethrough   =   0   'False
  130.          EndProperty
  131.          ForeColor       =   &H0000FFFF&
  132.          Height          =   825
  133.          Left            =   4005
  134.          TabIndex        =   8
  135.          Top             =   1755
  136.          Width           =   2490
  137.       End
  138.       Begin VB.Label SavedPlanets 
  139.          AutoSize        =   -1  'True
  140.          BackStyle       =   0  'Transparent
  141.          Caption         =   "Earth"
  142.          BeginProperty Font 
  143.             Name            =   "Times New Roman"
  144.             Size            =   36
  145.             Charset         =   0
  146.             Weight          =   700
  147.             Underline       =   0   'False
  148.             Italic          =   0   'False
  149.             Strikethrough   =   0   'False
  150.          EndProperty
  151.          ForeColor       =   &H0000FFFF&
  152.          Height          =   825
  153.          Index           =   1
  154.          Left            =   4770
  155.          TabIndex        =   7
  156.          Top             =   2970
  157.          Width           =   1785
  158.       End
  159.       Begin VB.Label TopSpeed 
  160.          AutoSize        =   -1  'True
  161.          BackStyle       =   0  'Transparent
  162.          Caption         =   "TopSpeed"
  163.          BeginProperty Font 
  164.             Name            =   "Times New Roman"
  165.             Size            =   36
  166.             Charset         =   0
  167.             Weight          =   700
  168.             Underline       =   0   'False
  169.             Italic          =   0   'False
  170.             Strikethrough   =   0   'False
  171.          EndProperty
  172.          ForeColor       =   &H0000FFFF&
  173.          Height          =   825
  174.          Left            =   4005
  175.          TabIndex        =   6
  176.          Top             =   5490
  177.          Width           =   3090
  178.       End
  179.       Begin VB.Label TotalBounces 
  180.          AutoSize        =   -1  'True
  181.          BackStyle       =   0  'Transparent
  182.          Caption         =   "TotalBounces"
  183.          BeginProperty Font 
  184.             Name            =   "Times New Roman"
  185.             Size            =   36
  186.             Charset         =   0
  187.             Weight          =   700
  188.             Underline       =   0   'False
  189.             Italic          =   0   'False
  190.             Strikethrough   =   0   'False
  191.          EndProperty
  192.          ForeColor       =   &H0000FFFF&
  193.          Height          =   825
  194.          Left            =   7200
  195.          TabIndex        =   5
  196.          Top             =   6615
  197.          Width           =   4185
  198.       End
  199.       Begin VB.Label SavedPlanets 
  200.          AutoSize        =   -1  'True
  201.          BackStyle       =   0  'Transparent
  202.          Caption         =   "Mars"
  203.          BeginProperty Font 
  204.             Name            =   "Times New Roman"
  205.             Size            =   36
  206.             Charset         =   0
  207.             Weight          =   700
  208.             Underline       =   0   'False
  209.             Italic          =   0   'False
  210.             Strikethrough   =   0   'False
  211.          EndProperty
  212.          ForeColor       =   &H0000FFFF&
  213.          Height          =   825
  214.          Index           =   2
  215.          Left            =   4770
  216.          TabIndex        =   4
  217.          Top             =   3735
  218.          Width           =   1635
  219.       End
  220.       Begin VB.Label SavedPlanets 
  221.          AutoSize        =   -1  'True
  222.          BackStyle       =   0  'Transparent
  223.          Caption         =   "Neptune"
  224.          BeginProperty Font 
  225.             Name            =   "Times New Roman"
  226.             Size            =   36
  227.